Dit voorbeeld maakt gebruik van de functie CInt om een waarde naar een Integer te converteren.
Dim MyDouble, MyInt MyDouble = 2345,5678 ' MyDouble is a Double. MyInt = CInt(MyDouble) ' MyInt contains 2346.